ruta del norte

---
title: "ruta del norte"
author: "Luis Fernando Zamorano Magaña"
output: 
  flexdashboard::flex_dashboard:
    orientation: rows
    vertical_layout: scroll
    favicon: escudo.jpg
    logo: escudo.jpg
    fig_mobile: TRUE
    theme: cosmo
    social: menu
    source_code: embed
    navbar:
      - {title: "mapa de lugares del norte", href: "https://rstudio.cloud/project/2897129", align: right, icon: fa-map-marker}
      - {title: "taller III, Economía UNAM", href: "http://www.economia.unam.mx/", align: right, icon: fa-school}
---

```{r global, include=FALSE}
library(leaflet)
library(leaflet.extras)
```

Mapa {data-icon="fa-map"}
=====================================

Row
-----------------------------------------------------------------------

### Título del mapa

```{r}
### Registramos la información de los lugares
lugar1 <- c(Nombre = "a", Giro = "aa", longitud = -103.64, latitud =26.6909 )
lugar2 <- c(Nombre = "b", Giro = "bb", longitud = -107.5057700, latitud = 27.6)
lugar3 <- c(Nombre = "c", Giro = "cc", longitud = -100.309, latitud = 25.671)
lugar4 <- c(Nombre = "d", Giro = "dd", longitud = -114.39202, latitud = 31.4805)
lugar5 <- c(Nombre = "e", Giro = "ee", longitud = -100.8849479, latitud = 23.69)
lugar6 <- c(Nombre = "f", Giro = "ff", longitud = -111.9371856, latitud = 28.824)

### Creamos una tabla de datos con la información de los lugares
lugares <- data.frame(rbind(lugar1, lugar2, lugar3, lugar4, lugar5, lugar6))

### Nos aseguramos de que la latitud y longitud sean números
lugares$longitud <- as.numeric(lugares$longitud)
lugares$latitud <- as.numeric(lugares$latitud)

### Creamos el mapa
mapa <- leaflet(lugares) %>% setView(lng = -99.3, lat = 19.4, zoom = 5) %>% addTiles() %>% addMarkers(~longitud, ~latitud, popup = paste(sep = "
", "Nombre:", lugares$Nombre, "Giro:", lugares$Giro)) 

### Agregamos el botón de reset y la barra de herramientas de dibujo al mapa
mapa %>% addResetMapButton() %>% addDrawToolbar(editOptions = editToolbarOptions(selectedPathOptions = selectedPathOptions())) 

### Imprimimos el mapa
mapa
```



Row
-----------------------------------------------------------------------

### Descripción del mapa

Este mapa se constituye por 6 lugares del norte de México que me gustaría visitar







[página de la secretaría de turismo](https://www.gob.mx/sectur)

 
![](norte.jpg){height=150}




Row
-----------------------------------------------------------------------

### Referencias

1.  Referencia uno

2.  Referencia dos

3.  Referencia tres